home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Updaters / CINEMA 4D XL 5.21 / NewFeaturesExamples / Plugins / Interpolation.cof next >
Encoding:
Text File  |  1998-07-14  |  866 b   |  51 lines  |  [TEXT/ttxt]
  1. SetIVal(doc,val)
  2. {
  3.     var mp,i,ci=new(array,12);
  4.     if (!ci) return;
  5.         
  6.     ci[ 0] = new(ColorInfo);
  7.     ci[ 1] = new(LuminanceInfo);
  8.     ci[ 2] = new(TransparencyInfo);
  9.     ci[ 3] = new(ReflectionInfo);
  10.     ci[ 4] = new(EnvInfo);
  11.     ci[ 5] = new(FogInfo);
  12.     ci[ 6] = new(BumpInfo);
  13.     ci[ 7] = new(GenlockInfo);
  14.     ci[ 8] = new(HighlightInfo);
  15.     ci[ 9] = new(HColorInfo);
  16.     ci[10] = new(GlowInfo);
  17.     ci[11] = new(DisplacementInfo);
  18.     
  19.     for (mp = doc->GetFirstMaterial(); mp; mp=mp->GetNext())
  20.     {
  21.         for (i=0; i<12; i++)
  22.         {
  23.             if (!ci[i]) continue;
  24.             if (mp->GetChannelInfo(ci[i]))
  25.             {
  26.                 ci[i]->inter = val; // Set new interpolation type
  27.                 mp->SetChannelInfo(ci[i]);
  28.             }
  29.         }
  30.     }
  31.  
  32.     return TRUE;
  33. }
  34.  
  35. SetMIP(doc)
  36. {
  37.     SetIVal(doc,6);
  38. }
  39.  
  40. SetSAT(doc)
  41. {
  42.     SetIVal(doc,7);
  43. }
  44.  
  45. main()
  46. {
  47.     RegisterMenuHook("Adjust MIP Mapping","SetMIP");
  48.     RegisterMenuHook("Adjust SAT Mapping","SetSAT");
  49.     return TRUE;
  50. }
  51.